
log using Analysis_Main_log, text

*Table 3

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l.Nu_std

gen support_US_lagged = l.support_US_std
gen support_USSR_lagged = l.support_USSR_std
gen support_UK_lagged = l.support_UK_std
gen support_France_lagged = l.support_France_std
gen support_China_lagged = l.support_China_std



xtreg Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged, fe cluster(ccode)
estimates store m1

xtreg Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l2.support_USSR_std l2.support_China_std l2.support_UK_std l2.support_France_std l2.cinc l2.country_dem l2.ln_GNP l2.i.mid l2.IdealPointDistance_US, fe cluster(ccode)
estimates store m2

esttab m1 m2 using Table3.tex, se star(+ 0.10 * 0.05 ** 0.01) replace


xtreg Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l2.support_USSR_std l2.support_China_std l2.support_UK_std l2.support_France_std l2.cinc l2.country_dem l2.ln_GNP l2.i.mid l2.IdealPointDistance_US, fe cluster(ccode)
margins, dydx(support_US_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of US Signals of Support on Nuclear Latency") level(95)
* Figure 4



********************************************************************************************************
*Table 4

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year


gen a = l.Nu_std
gen b = l2.Nu_std
gen Nu_std_lagged = l3.Nu_std

gen support_US_lagged = l3.support_US_std
gen support_USSR_lagged = l3.support_USSR_std
gen support_UK_lagged = l3.support_UK_std
gen support_France_lagged = l3.support_France_std
gen support_China_lagged = l3.support_China_std



xtreg Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged, fe cluster(ccode)
estimates store m1

xtreg Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_US, fe cluster(ccode)
estimates store m2

esttab m1 m2 using Table4.tex, se star(+ 0.10 * 0.05 ** 0.01) replace


xtreg Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_US, fe cluster(ccode)
margins, dydx(support_US_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of US Signals of Support on Nuclear Latency") level(95)
* Figure 5


********************************************************************************************************
*Table 5

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l.Nu_std

gen support_US_lagged = l.support_US_std
gen support_USSR_lagged = l.support_USSR_std
gen support_UK_lagged = l.support_UK_std
gen support_France_lagged = l.support_France_std
gen support_China_lagged = l.support_China_std


xtreg Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged, fe cluster(ccode)
estimates store k1

xtreg Nu_std c.Nu_std_lagged##c.support_China_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_China_lagged, fe cluster(ccode)
estimates store k2

xtreg Nu_std c.Nu_std_lagged##c.support_UK_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_UK_lagged, fe cluster(ccode)
estimates store k3

xtreg Nu_std c.Nu_std_lagged##c.support_France_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_France_lagged, fe cluster(ccode)
estimates store k4


esttab k1 k2 k3 k4 using Table5.tex, se star(+ 0.10 * 0.05 ** 0.01) replace


log close
